home *** CD-ROM | disk | FTP | other *** search
/ 300 Great Games for Mac / 300 games for mac.iso / Trivia / President Quiz / president quiz / background_2697.txt < prev    next >
Text File  |  1990-04-02  |  8KB  |  374 lines
  1. -- background: 2697 from stack: in
  2. -- bmap block id: 6112
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 2002
  11. -- rect: left=31 top=18 right=87 bottom=498
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 2
  16. -- text size: 14
  17. -- style flags: 256
  18. -- line height: 18
  19. -- part name: 
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 00
  24. -- high flags: 2000
  25. -- rect: left=86 top=104 right=145 bottom=495
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 2
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: 
  34.  
  35.  
  36. -- part 3 (field)
  37. -- low flags: 00
  38. -- high flags: 2000
  39. -- rect: left=86 top=148 right=188 bottom=495
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 2
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: 
  48.  
  49.  
  50. -- part 4 (field)
  51. -- low flags: 00
  52. -- high flags: 2000
  53. -- rect: left=86 top=191 right=231 bottom=495
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 0
  57. -- font id: 2
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: 
  62.  
  63.  
  64. -- part 20 (button)
  65. -- low flags: 00
  66. -- high flags: A000
  67. -- rect: left=352 top=293 right=338 bottom=407
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 5472 / 5472
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: Begin again.
  76. ----- HyperTalk script -----
  77. on mouseUp
  78.   set hilite of bg button id 12 to false
  79.   set hilite of bg button id 15 to false
  80.   set hilite of bg button id 16 to false
  81.   visual scroll right
  82.   go to first card
  83. end mouseUp
  84.  
  85.  
  86.  
  87. -- part 5 (field)
  88. -- low flags: 00
  89. -- high flags: 2000
  90. -- rect: left=14 top=315 right=334 bottom=267
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 0 / 0
  93. -- text alignment: 0
  94. -- font id: 3
  95. -- text size: 10
  96. -- style flags: 256
  97. -- line height: 13
  98. -- part name: credits
  99.  
  100.  
  101. -- part 6 (field)
  102. -- low flags: 00
  103. -- high flags: 2000
  104. -- rect: left=86 top=252 right=287 bottom=265
  105. -- title width / last selected line: 0
  106. -- icon id / first selected line: 0 / 0
  107. -- text alignment: 0
  108. -- font id: 2
  109. -- text size: 12
  110. -- style flags: 256
  111. -- line height: 16
  112. -- part name: score
  113.  
  114.  
  115. -- part 10 (button)
  116. -- low flags: 00
  117. -- high flags: A000
  118. -- rect: left=352 top=243 right=294 bottom=475
  119. -- title width / last selected line: 0
  120. -- icon id / first selected line: 2507 / 2507
  121. -- text alignment: 1
  122. -- font id: 0
  123. -- text size: 12
  124. -- style flags: 0
  125. -- line height: 16
  126. -- part name: More about this President
  127. ----- HyperTalk script -----
  128. on mouseUp
  129.   global presName
  130.   push this card
  131.   visual iris open
  132.   go to card presName
  133.   if the result is not empty
  134.   then
  135.   answer "This biography has not been written yet."
  136. end if
  137. end mouseUp
  138.  
  139.  
  140.  
  141. -- part 8 (button)
  142. -- low flags: 00
  143. -- high flags: A000
  144. -- rect: left=408 top=293 right=338 bottom=463
  145. -- title width / last selected line: 0
  146. -- icon id / first selected line: 27009 / 27009
  147. -- text alignment: 1
  148. -- font id: 0
  149. -- text size: 12
  150. -- style flags: 0
  151. -- line height: 16
  152. -- part name: Next card.
  153. ----- HyperTalk script -----
  154. on mouseUp
  155.   set hilite of bg button id 12 to false
  156.   set hilite of bg button id 15 to false
  157.   set hilite of bg button id 16 to false
  158.   visual scroll left
  159.   go to next card
  160. end mouseUp
  161.  
  162.  
  163.  
  164. -- part 9 (button)
  165. -- low flags: 00
  166. -- high flags: 0000
  167. -- rect: left=462 top=296 right=329 bottom=499
  168. -- title width / last selected line: 0
  169. -- icon id / first selected line: 19727 / 19727
  170. -- text alignment: 1
  171. -- font id: 0
  172. -- text size: 12
  173. -- style flags: 0
  174. -- line height: 16
  175. -- part name: 
  176. ----- HyperTalk script -----
  177. on mouseUp
  178.   set hilite of bg button id 12 to false
  179.   set hilite of bg button id 15 to false
  180.   set hilite of bg button id 16 to false
  181.   doMenu "Quit HyperCard"
  182. end mouseUp
  183.  
  184.  
  185.  
  186. -- part 11 (field)
  187. -- low flags: 80
  188. -- high flags: 2004
  189. -- rect: left=136 top=113 right=223 bottom=413
  190. -- title width / last selected line: 0
  191. -- icon id / first selected line: 0 / 0
  192. -- text alignment: 1
  193. -- font id: 2
  194. -- text size: 24
  195. -- style flags: 0
  196. -- line height: 32
  197. -- part name: Response
  198.  
  199.  
  200. -- part 12 (button)
  201. -- low flags: 00
  202. -- high flags: 2006
  203. -- rect: left=49 top=105 right=137 bottom=433
  204. -- title width / last selected line: 0
  205. -- icon id / first selected line: 0 / 0
  206. -- text alignment: 1
  207. -- font id: 0
  208. -- text size: 12
  209. -- style flags: 0
  210. -- line height: 16
  211. -- part name: 1
  212. ----- HyperTalk script -----
  213. on mouseUp
  214.   global thisAnswer
  215.   put 1 into thisAnswer
  216.   doScore
  217. end mouseUp
  218.  
  219.  
  220.  
  221. -- part 15 (button)
  222. -- low flags: 00
  223. -- high flags: 2006
  224. -- rect: left=48 top=150 right=181 bottom=433
  225. -- title width / last selected line: 0
  226. -- icon id / first selected line: 0 / 0
  227. -- text alignment: 1
  228. -- font id: 0
  229. -- text size: 12
  230. -- style flags: 0
  231. -- line height: 16
  232. -- part name: 2
  233. ----- HyperTalk script -----
  234. on mouseUp
  235.   global thisAnswer
  236.   put 2 into thisAnswer
  237.   doScore
  238. end mouseUp
  239.  
  240.  
  241.  
  242. -- part 16 (button)
  243. -- low flags: 00
  244. -- high flags: 2006
  245. -- rect: left=49 top=194 right=225 bottom=431
  246. -- title width / last selected line: 0
  247. -- icon id / first selected line: 0 / 0
  248. -- text alignment: 1
  249. -- font id: 0
  250. -- text size: 12
  251. -- style flags: 0
  252. -- line height: 16
  253. -- part name: 3
  254. ----- HyperTalk script -----
  255. on mouseUp
  256.   global thisAnswer
  257.   put 3 into thisAnswer
  258.   doScore
  259. end mouseUp
  260.  
  261.  
  262.  
  263. -- part 17 (button)
  264. -- low flags: 00
  265. -- high flags: 8000
  266. -- rect: left=11 top=299 right=332 bottom=86
  267. -- title width / last selected line: 0
  268. -- icon id / first selected line: 0 / 0
  269. -- text alignment: 1
  270. -- font id: 0
  271. -- text size: 12
  272. -- style flags: 0
  273. -- line height: 16
  274. -- part name: Set data.
  275. ----- HyperTalk script -----
  276. on mouseUp
  277.   global presName, dataSet
  278.   if dataSet is true
  279.   then
  280.   answer "It's already set."
  281. else
  282.   put true into dataSet
  283.   get the script of this card
  284.   put it into tempScript
  285.   ask "Name the President."
  286.   put it into presName
  287.   put quote & it & quote into word 2 of line 3 of TempScript
  288.   ask "Which is the correct answer?"
  289.   put it into word 2 of line 4 of TempScript
  290.   put "true" into word 2 of line 6 of tempScript
  291.   set the script of this card to tempScript
  292.   ask "What is your name?"
  293.   put "This question is by" && it & "." after bg field "credits"
  294.   answer "Do you want to write the bio now" with "Yes" or "No"
  295.   if it is "yes"
  296.   then
  297.   lock screen
  298.   push this card
  299.   go to card presName
  300.   if the result is empty
  301.   then
  302.   pop card
  303.   unlock screen
  304.   answer "It's already done."
  305. else
  306.   go to last card of background id 3615
  307.   doMenu New Card
  308.   put presName into bg field "name"
  309.   set name of this card to presName
  310.   unlock screen
  311.   tabKey
  312.   tabKey
  313. end if
  314. end if
  315. end if
  316. end mouseUp
  317.  
  318.  
  319.  
  320. -- part 18 (button)
  321. -- low flags: 00
  322. -- high flags: A000
  323. -- rect: left=95 top=299 right=332 bottom=190
  324. -- title width / last selected line: 0
  325. -- icon id / first selected line: 0 / 0
  326. -- text alignment: 1
  327. -- font id: 0
  328. -- text size: 12
  329. -- style flags: 0
  330. -- line height: 16
  331. -- part name: Back to Start
  332. ----- HyperTalk script -----
  333. on mouseUp
  334.   go to card id 5160
  335. end mouseUp
  336.  
  337.  
  338.  
  339.  
  340. -- part 19 (button)
  341. -- low flags: 00
  342. -- high flags: A000
  343. -- rect: left=197 top=299 right=334 bottom=277
  344. -- title width / last selected line: 0
  345. -- icon id / first selected line: 0 / 0
  346. -- text alignment: 1
  347. -- font id: 0
  348. -- text size: 12
  349. -- style flags: 0
  350. -- line height: 16
  351. -- part name: Write bio...
  352. ----- HyperTalk script -----
  353. on mouseUp
  354.   global presName
  355.   lock screen
  356.   push this card
  357.   go to card presName
  358.   if the result is empty
  359.   then
  360.   pop card
  361.   unlock screen
  362.   answer "It's already done."
  363. else
  364.   go to last card of background id 3615
  365.   doMenu New Card
  366.   put presName into bg field "name"
  367.   set name of this card to presName
  368.   unlock screen
  369.   tabKey
  370.   tabkey
  371. end if
  372. end mouseUp
  373.  
  374.